home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmPT_1007_EditNum < prev    next >
Encoding:
Text File  |  1990-03-23  |  571 b   |  30 lines

  1. %case uses%
  2. %case instance%
  3.     %itemname%:%    %CEditNum;
  4. %case create%
  5.     
  6.     New (%itemname%);
  7.     %itemname%.IViewRes ('StTx', %paneID%, enclosure, supervisor);
  8.     itsMainPane := %itemname%;
  9.     itsGopher := itsMainPane;
  10. %case itemNr%
  11.     %DefineItem%
  12. %case dialog field%
  13.     %fieldname%:%    %longint;
  14. %case init field%
  15.     %fieldname% := 0;
  16. %case auxiliary%
  17. %case filter%
  18. %case set%
  19.     SetDNum (%itemname%, %fieldname%);
  20. %case hit%
  21.     %if not disabled%
  22.         %itemname%: begin
  23.                 GetDNum (itemNr,%fieldname%);
  24.             end;
  25.     %endif%
  26. %case finish%
  27.     %if disabled%
  28.         GetDNum (%itemname%, %fieldname%);
  29.     %endif%
  30.